home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / intro.dxr / 00014.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  318 b   |  14 lines
  1. on exitFrame me
  2.   global programTitle
  3.   startTimer()
  4.   repeat while the timer < (3 * 60)
  5.     go(the frame)
  6.   end repeat
  7.   regStatus = baReadRegString("Software\Covenant\" & programTitle, "Registration", "Error", "HKEY_LOCAL_MACHINE")
  8.   if regStatus = "Error" then
  9.     go("Register")
  10.   else
  11.     go("goOn")
  12.   end if
  13. end
  14.